home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / geo_math.arc / M13.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-03-29  |  640 b   |  32 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "CURVILINEAR INTERPOLATION"
  3. 15   DIM X(50),Y(50)
  4. 20   PRINT 
  5. 40   PRINT "NUMBER OF KNOWN POINTS";
  6. 50   INPUT P
  7. 60   FOR I = 1 TO P
  8. 70   PRINT "X,Y OF POINT";I;
  9. 80   INPUT X(I),Y(I)
  10. 90   NEXT I
  11. 100   PRINT 
  12. 110   PRINT "INTERPOLATE: X = ";
  13. 120   INPUT A
  14. 130  B = 0
  15. 140   FOR J = 1 TO P
  16. 150  T = 1
  17. 160   FOR I = 1 TO P
  18. 170   IF I = J THEN 190
  19. 180  T = T * (A - X(I)) / (X(J) - X(I))
  20. 190   NEXT I
  21. 200  B = B + T * Y(J)
  22. 210   NEXT J
  23. 220   PRINT "             Y = ";B
  24. 230   PRINT 
  25. 240   PRINT "MORE X ON THIS CURVE (1=YES, 0=NO)";
  26. 250   INPUT C
  27. 260   IF C = 1 THEN 100
  28. 270   PRINT "MORE X ON ANOTHER CURVE (1=YES, 0=NO)";
  29. 280   INPUT C
  30. 290   IF C = 1 THEN 20
  31. 300   RUN "MATH"
  32.